home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00007_Text & List Code.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  3.2 KB  |  151 lines
  1. global gDBPictObjList
  2.  
  3. on TextCopy
  4.   copyToClipBoard(member("texthold f"))
  5. end
  6.  
  7. on EvalKeyPressed
  8.   if IsKeyBoardEquivalentDown() then
  9.     MyObj = getaProp(gDBPictObjList, GetObjProp())
  10.     case the key of
  11.       "c":
  12.         TextCopy()
  13.       "p":
  14.         print(MyObj)
  15.       "s":
  16.         save(MyObj)
  17.     end case
  18.   end if
  19. end
  20.  
  21. on MakePlatformFileName xText
  22.   xText = RemoveReturns(xText)
  23.   xText = RemovePathDelimiters(xText)
  24.   if the machineType = 256 then
  25.     legalChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890"
  26.     MaxCount = length(xText)
  27.     repeat with rc = 1 to MaxCount
  28.       if not (legalChars contains char rc of xText) then
  29.         put " " into char rc of xText
  30.       end if
  31.     end repeat
  32.     repeat while xText contains " "
  33.       CharNum = offset(" ", xText)
  34.       if CharNum > 0 then
  35.         delete char CharNum of xText
  36.       end if
  37.     end repeat
  38.     return char 1 to 8 of xText
  39.   else
  40.     return xText
  41.   end if
  42. end
  43.  
  44. on SetFieldProps xMember
  45.   set the textFont of member xMember to GetFont()
  46.   member(xMember).scrollTop = 0
  47. end
  48.  
  49. on GetInsideRect xRect, xSprite
  50.   xLineSize = the lineSize of sprite xSprite
  51.   return xRect + rect(xLineSize, xLineSize, -xLineSize, -xLineSize)
  52. end
  53.  
  54. on GetFont
  55.   if the machineType = 256 then
  56.     xFont = "arial"
  57.   else
  58.     xFont = "helvetica"
  59.   end if
  60.   return xFont
  61. end
  62.  
  63. on GetRectHeight xRect
  64.   return getAt(xRect, 4) - getAt(xRect, 2)
  65. end
  66.  
  67. on RemoveBlankLines xText
  68.   ReturnString = xText
  69.   LineMax = the number of lines in ReturnString
  70.   repeat with rc = LineMax down to 1
  71.     LineText = line rc of ReturnString
  72.     if (LineText = EMPTY) or (LineText = " ") then
  73.       delete line rc of ReturnString
  74.       LineMax = the number of lines in ReturnString
  75.     end if
  76.   end repeat
  77.   return ReturnString
  78. end
  79.  
  80. on ParseLineBreak xText
  81.   repeat while xText contains "^"
  82.     Pos = offset("^", xText)
  83.     put RETURN into char Pos of xText
  84.   end repeat
  85.   return xText
  86. end
  87.  
  88. on RectToLoc xRect
  89.   l = getAt(xRect, 1)
  90.   t = getAt(xRect, 2)
  91.   R = getAt(xRect, 3)
  92.   b = getAt(xRect, 4)
  93.   xPoint = point(((R - l) / 2) + l, ((b - t) / 2) + t)
  94.   return xPoint
  95. end
  96.  
  97. on CreateLookUpList paramList
  98.   list = []
  99.   repeat with rc in paramList
  100.     append(list, getPos(paramList, rc))
  101.   end repeat
  102.   return list
  103. end
  104.  
  105. on LineItemCount xText
  106.   storeDelimiter = the itemDelimiter
  107.   the itemDelimiter = TAB
  108.   xNumber = the number of items in xText
  109.   the itemDelimiter = storeDelimiter
  110.   return xNumber
  111. end
  112.  
  113. on BlankLine xText
  114.   return (xText = EMPTY) or (xText = " ")
  115. end
  116.  
  117. on RemoveSpaces xText
  118.   ReturnString = xText
  119.   repeat while ReturnString contains " "
  120.     SpaceLoc = offset(" ", ReturnString)
  121.     delete char SpaceLoc of ReturnString
  122.   end repeat
  123.   return ReturnString
  124. end
  125.  
  126. on RemovePathDelimiters xText
  127.   if the machineType = 256 then
  128.     delimiter = "\"
  129.   else
  130.     delimiter = ":"
  131.   end if
  132.   repeat while xText contains delimiter
  133.     CharNum = offset(delimiter, xText)
  134.     if CharNum > 0 then
  135.       delete char CharNum of xText
  136.     end if
  137.   end repeat
  138.   return xText
  139. end
  140.  
  141. on DelBorderSpaces xText
  142.   ReturnString = xText
  143.   repeat while char 1 of ReturnString = " "
  144.     delete char 1 of ReturnString
  145.   end repeat
  146.   repeat while char length(ReturnString) of ReturnString = " "
  147.     delete char length(ReturnString) of ReturnString
  148.   end repeat
  149.   return ReturnString
  150. end
  151.